home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / browser / createnails.browse < prev    next >
Text File  |  2004-08-03  |  891b  |  46 lines
  1. /*
  2.  * ImageFX Browser Script
  3.  *
  4.  * All browser scripts are called as follows:
  5.  *
  6.  *    ScriptName.browse <numfiles> <filelist>
  7.  *
  8.  * Where:
  9.  *
  10.  *    <numfiles>        = Number of files selected (could be 0).
  11.  *    <filelist>        = File containing the list of files selected,
  12.  *                        one file per line, with full pathname.
  13.  *
  14.  * CreateNails.browse:
  15.  *
  16.  *    Create thumbnails for all selected files.
  17.  *
  18.  * 02.01.95 tek   Added missing END statement.
  19.  *
  20.  */
  21.  
  22. OPTIONS RESULTS
  23.  
  24. PARSE ARG numfiles filelist .
  25.  
  26. IF numfiles > 0 THEN DO
  27.  
  28.    IF OPEN(infile, filelist, 'Read') THEN DO
  29.  
  30.       DO WHILE ~EOF(infile)
  31.          curfile = READLN(infile)
  32.          IF curfile ~= "" THEN DO
  33.             LoadBuffer '"'curfile'"' FORCE
  34.             IF rc = 0 THEN CreateNailFile curfile
  35.             END
  36.          END
  37.  
  38.       CALL CLOSE(infile)
  39.       KillBuffer FORCE
  40.  
  41.       END
  42.  
  43.    END
  44.  
  45. EXIT 0
  46.